home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-08_1990_-_de_Side_B.d64 / Plotter .txt < prev    next >
Text File  |  2023-02-26  |  990b  |  77 lines
  1. d/rem
  2. rem  Funktionsplotter fuer C64 & Supra64
  3. rem
  4. :start
  5. clr
  6. zu$="0123456789- "
  7. gosub screen
  8. cursor 0,2
  9. print "Intervall von :";
  10. input 3,zu$,ei$
  11. a=val(ei$)
  12. print
  13. print "bis           :";
  14. input 3,zu$,ei$
  15. b=val(ei$)
  16. cursor 0,4
  17. print "Y min-Koordinate :";
  18. input 3,zu$,ei$
  19. y1=val(ei$)
  20. print
  21. print "Y max-Koordinate :";
  22. input 3,zu$,ei$
  23. y2=val(ei$)
  24. rem
  25. rem Test auf Sinn !
  26. rem
  27. if a>=b:start
  28. if y1>=y2:start
  29. rem
  30. rem Berechnung !
  31. rem
  32. ix=b-a
  33. dx=320/ix
  34. iy=y2-y1
  35. dy=200/iy
  36. ha=abs(a)
  37. hy=abs(y1)
  38. rem
  39. gosub screen
  40. rem
  41. line 1,ha*dx,0,ha*dx,199
  42. line 1,0,200-(hy*dy),319,200-(hy*dy)
  43. x=0
  44. do until x=ix
  45. line 1,x*dx,200-abs(hy*dy-3),x*dx,200-abs(hy*dy+3)
  46. x=x+1
  47. loop
  48. x=0
  49. do until x=iy
  50. line 1,abs(ha*dx-3),x*dy,abs(ha*dx+3),x*dy
  51. x=x+1
  52. loop
  53. rem
  54. rem plotten
  55. rem
  56. x=a
  57. do until xk>=319
  58. rem ---------------
  59. y=abs(x)
  60. rem ---------------
  61. xk=x*dx+ha*dx
  62. yk=200-(y*dy+hy*dy)
  63. ifyk<8oryk>199:+weiter
  64. draw 1,xk,yk
  65. :weiter
  66. x=x+1/(dx+2)
  67. loop
  68. end.
  69. :screen
  70. scnclr
  71. cursor 0,0
  72. modus 1
  73. print "Funktionsplotter V1"
  74. modus 0
  75. return
  76.  
  77.  
  78. z